open(BUFF,"plink.frq");
while(<BUFF>)
{
	chomp($_);
	$_=~s/^\s+//g;
	@array=split(/\s+/,$_);
	#print "$array[4]\n";
	if(rand()<0.015 && $array[4] > 0.05)
	{
		print "$array[1]\n";
	}
}
